home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue37 / outlook / Example2 / Example2.dpr < prev    next >
Encoding:
Text File  |  1998-05-16  |  777 b   |  51 lines
  1. {
  2.  
  3. Example which adds a menu item to a message window,
  4. a button to the main toolbar and shows some ways
  5. of using Outlooks COM interface.
  6.  
  7. Extensions key:
  8.  
  9. 4.0;m:\src\test\outlook\helloworld2\helloworld2.DLL;1;010001;1000000
  10.  
  11. }
  12.  
  13.  
  14.  
  15. library Example2;
  16.  
  17. uses
  18.   SysUtils,
  19.   Classes,
  20.   Dialogs,
  21.   ExchExt,
  22.   ComExample2 in 'ComExample2.pas';
  23.  
  24.  
  25. {$R Example2.RES}
  26.  
  27.  
  28. function ExchEntryPoint: pointer; cdecl;
  29. var
  30.   ExchExt: IExchExt;
  31. begin
  32.   try
  33.     ExchExt := TExchExt.Create;
  34.     ExchExt._AddRef;
  35.     Result := pointer(ExchExt);
  36.   except
  37.     on E:Exception do  begin
  38.       ShowMessage('Could not install custom Exchange Extsion: ' + E.Message);
  39.       Result := nil;
  40.     end;
  41.   end;
  42. end;
  43.  
  44.  
  45. exports
  46.   ExchEntryPoint index 1;
  47.  
  48.  
  49. begin
  50. end.
  51.